home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / polygo / polygone.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  1.2 KB  |  42 lines
  1. VERSION 2.00
  2. Begin Form PolyForm 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "PolyGone II"
  5.    ClientHeight    =   1875
  6.    ClientLeft      =   210
  7.    ClientTop       =   495
  8.    ClientWidth     =   2550
  9.    Height          =   2280
  10.    Icon            =   POLYGONE.FRX:0000
  11.    Left            =   150
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   1875
  15.    ScaleWidth      =   2550
  16.    Top             =   150
  17.    Width           =   2670
  18.    DefSng A-Z
  19.    Option Explicit
  20. ' PolyGone was written by Jim Mack, CIS 76630,2012
  21. ' It has no purpose other than to entertain, and is
  22. ' not copyrighted.  If you modify this code, please
  23. ' send me a copy so I can have some more fun too!
  24. Sub Form_Click ()
  25.    ' Clicking on the form cause a Clear next pass
  26.    CLSFlag = True
  27. End Sub
  28. Sub Form_DblClick ()
  29.    ' Double-click on form for parameters
  30.    PolyParam.Show 1
  31. End Sub
  32. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  33.    SaveINI
  34.    DoEvents
  35. End Sub
  36. Sub Form_Resize ()
  37.    SizeAdapt
  38. End Sub
  39. Sub Form_Unload (Cancel As Integer)
  40.    End
  41. End Sub
  42.